object FrmEnviarRemessaSPC: TFrmEnviarRemessaSPC
  Left = 364
  Top = 219
  BorderStyle = bsSingle
  Caption = 'Enviar Remessa para SPC'
  ClientHeight = 540
  ClientWidth = 904
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 904
    Height = 503
    Align = alClient
    TabOrder = 0
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 902
      Height = 40
      Align = alTop
      BevelInner = bvLowered
      BorderWidth = 2
      Caption = 'Enviar Remessa para SPC'
      Color = clWhite
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -27
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold, fsItalic]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
    object Panel4: TPanel
      Left = 1
      Top = 41
      Width = 902
      Height = 461
      Align = alClient
      BevelInner = bvLowered
      BorderWidth = 2
      TabOrder = 1
      object SbHints: TStatusBar
        Left = 4
        Top = 438
        Width = 894
        Height = 19
        Color = clWhite
        Panels = <
          item
            Alignment = taCenter
            Width = 50
          end>
      end
      object DBGrid1: TDBGrid
        Left = 4
        Top = 4
        Width = 894
        Height = 434
        Align = alClient
        DataSource = dsRegistros
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = 'Arial'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'SPCC_INCLUSAO'
            Title.Caption = 'Inclus'#227'o'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SPCC_EXCLUSAO'
            Title.Caption = 'Exclus'#227'o'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PES_PESSOA'
            Title.Caption = 'Pessoa'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PES_NOME'
            Title.Caption = 'Nome'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PES_CPFCNPJ'
            Title.Caption = 'CPF/CNPJ'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PES_IDEINS'
            Title.Caption = 'Identidade / IE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PES_NASCIM'
            Title.Caption = 'Data de Nascimento'
            Visible = True
          end>
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 503
    Width = 904
    Height = 37
    Align = alBottom
    BevelInner = bvLowered
    BorderWidth = 2
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 8
      Top = 4
      Width = 129
      Height = 25
      Hint = 'Gera arquivo de remessa para envio'
      Caption = 'Enviar Remessa'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BitBtn1Click
    end
  end
  object SQLC_REGISTROS: TSQLClientDataSet
    CommandText = 
      'SELECT * FROM SPC_REGISTROS SPCREG INNER JOIN PESSOAS PES ON PES' +
      '.PES_IDFCOD = SPCREG.SPCC_CONSUMIDOR INNER JOIN CIDADES C ON C.C' +
      'ID_CODIGO = PES_CIDADE and C.CID_ESTCOD = PES_ESTADO WHERE SPCC_' +
      'REMESSA IS NULL'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 449
    Top = 153
    object SQLC_REGISTROSSPCC_ID: TIntegerField
      FieldName = 'SPCC_ID'
      Required = True
    end
    object SQLC_REGISTROSSPCC_DATA: TDateField
      FieldName = 'SPCC_DATA'
      Required = True
    end
    object SQLC_REGISTROSSPCC_VALOR: TFMTBCDField
      FieldName = 'SPCC_VALOR'
      Required = True
      Precision = 15
      Size = 3
    end
    object SQLC_REGISTROSSPCC_CONTRATO: TStringField
      FieldName = 'SPCC_CONTRATO'
      Required = True
      Size = 30
    end
    object SQLC_REGISTROSSPCC_CONSUMIDOR: TIntegerField
      FieldName = 'SPCC_CONSUMIDOR'
      Required = True
    end
    object SQLC_REGISTROSSPCC_REMESSA: TIntegerField
      FieldName = 'SPCC_REMESSA'
    end
    object SQLC_REGISTROSSPCC_INCLUSAO: TIntegerField
      FieldName = 'SPCC_INCLUSAO'
    end
    object SQLC_REGISTROSSPCC_EXCLUSAO: TIntegerField
      FieldName = 'SPCC_EXCLUSAO'
    end
    object SQLC_REGISTROSSPCC_RETORNO: TIntegerField
      FieldName = 'SPCC_RETORNO'
    end
    object SQLC_REGISTROSPES_IDFCOD: TIntegerField
      FieldName = 'PES_IDFCOD'
      Required = True
    end
    object SQLC_REGISTROSPES_PESSOA: TStringField
      FieldName = 'PES_PESSOA'
      Required = True
      Size = 1
    end
    object SQLC_REGISTROSPES_CLIFOR: TStringField
      FieldName = 'PES_CLIFOR'
      Required = True
      Size = 1
    end
    object SQLC_REGISTROSPES_NOME: TStringField
      FieldName = 'PES_NOME'
      Required = True
      Size = 60
    end
    object SQLC_REGISTROSPES_FANTASIA: TStringField
      FieldName = 'PES_FANTASIA'
      Size = 60
    end
    object SQLC_REGISTROSPES_ENDERECO: TStringField
      FieldName = 'PES_ENDERECO'
      Size = 60
    end
    object SQLC_REGISTROSPES_COMPLEMENTO: TStringField
      FieldName = 'PES_COMPLEMENTO'
      Size = 60
    end
    object SQLC_REGISTROSPES_BAIRRO: TStringField
      FieldName = 'PES_BAIRRO'
      Size = 40
    end
    object SQLC_REGISTROSPES_POSTAL: TStringField
      FieldName = 'PES_POSTAL'
      Size = 10
    end
    object SQLC_REGISTROSPES_ESTADO: TStringField
      FieldName = 'PES_ESTADO'
      Required = True
      Size = 2
    end
    object SQLC_REGISTROSPES_CIDADE: TStringField
      FieldName = 'PES_CIDADE'
      Required = True
      Size = 3
    end
    object SQLC_REGISTROSPES_CPFCNPJ: TStringField
      FieldName = 'PES_CPFCNPJ'
      Size = 18
    end
    object SQLC_REGISTROSPES_IDEINS: TStringField
      FieldName = 'PES_IDEINS'
    end
    object SQLC_REGISTROSPES_NASCIM: TDateField
      FieldName = 'PES_NASCIM'
    end
    object SQLC_REGISTROSPES_CADASTRO: TDateField
      FieldName = 'PES_CADASTRO'
    end
    object SQLC_REGISTROSPES_GRUPO: TStringField
      FieldName = 'PES_GRUPO'
      Required = True
      Size = 3
    end
    object SQLC_REGISTROSPES_FONE: TStringField
      FieldName = 'PES_FONE'
      Size = 30
    end
    object SQLC_REGISTROSPES_CELULAR: TStringField
      FieldName = 'PES_CELULAR'
      Size = 30
    end
    object SQLC_REGISTROSPES_EMAIL: TStringField
      FieldName = 'PES_EMAIL'
      Size = 60
    end
    object SQLC_REGISTROSPES_OBSERVA: TMemoField
      FieldName = 'PES_OBSERVA'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_REGISTROSPES_SEXO: TStringField
      FieldName = 'PES_SEXO'
      Size = 1
    end
    object SQLC_REGISTROSPES_ESTADOCIVIL: TStringField
      FieldName = 'PES_ESTADOCIVIL'
      Size = 1
    end
    object SQLC_REGISTROSPES_TIPORESIDE: TStringField
      FieldName = 'PES_TIPORESIDE'
      Size = 1
    end
    object SQLC_REGISTROSPES_TEMPORESIDE: TStringField
      FieldName = 'PES_TEMPORESIDE'
      Size = 1
    end
    object SQLC_REGISTROSPES_CTRABALHO: TStringField
      FieldName = 'PES_CTRABALHO'
      Size = 60
    end
    object SQLC_REGISTROSPES_CENDERECO: TStringField
      FieldName = 'PES_CENDERECO'
      Size = 40
    end
    object SQLC_REGISTROSPES_CCOMPLEMENTO: TStringField
      FieldName = 'PES_CCOMPLEMENTO'
      Size = 60
    end
    object SQLC_REGISTROSPES_CBAIRRO: TStringField
      FieldName = 'PES_CBAIRRO'
      Size = 40
    end
    object SQLC_REGISTROSPES_CCIDADE: TStringField
      FieldName = 'PES_CCIDADE'
      Required = True
      Size = 3
    end
    object SQLC_REGISTROSPES_CESTADO: TStringField
      FieldName = 'PES_CESTADO'
      Required = True
      Size = 2
    end
    object SQLC_REGISTROSPES_CPOSTAL: TStringField
      FieldName = 'PES_CPOSTAL'
      Size = 10
    end
    object SQLC_REGISTROSPES_CFONE: TStringField
      FieldName = 'PES_CFONE'
      Size = 30
    end
    object SQLC_REGISTROSPES_CREFERENCIA: TMemoField
      FieldName = 'PES_CREFERENCIA'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_REGISTROSPES_CRENDA: TFMTBCDField
      FieldName = 'PES_CRENDA'
      Precision = 15
      Size = 2
    end
    object SQLC_REGISTROSPES_CADMISSAO: TDateField
      FieldName = 'PES_CADMISSAO'
    end
    object SQLC_REGISTROSPES_CAPROVADO: TStringField
      FieldName = 'PES_CAPROVADO'
      Size = 1
    end
    object SQLC_REGISTROSPES_CDIAVENCIM: TSmallintField
      FieldName = 'PES_CDIAVENCIM'
    end
    object SQLC_REGISTROSPES_CLIMITE: TFMTBCDField
      FieldName = 'PES_CLIMITE'
      Precision = 15
      Size = 2
    end
    object SQLC_REGISTROSPES_CCORRES: TStringField
      FieldName = 'PES_CCORRES'
      Size = 1
    end
    object SQLC_REGISTROSPES_FILIACAO: TStringField
      FieldName = 'PES_FILIACAO'
      Size = 60
    end
    object SQLC_REGISTROSPES_PROFISSAO: TStringField
      FieldName = 'PES_PROFISSAO'
      Size = 40
    end
    object SQLC_REGISTROSPES_CODIGO: TStringField
      FieldName = 'PES_CODIGO'
      Size = 15
    end
    object SQLC_REGISTROSPES_VENCIMENTO: TSmallintField
      FieldName = 'PES_VENCIMENTO'
    end
    object SQLC_REGISTROSPES_DEPEXCEDENTE: TSmallintField
      FieldName = 'PES_DEPEXCEDENTE'
    end
    object SQLC_REGISTROSPES_SERVICOEXEC: TStringField
      FieldName = 'PES_SERVICOEXEC'
      FixedChar = True
      Size = 1
    end
    object SQLC_REGISTROSCID_ESTCOD: TStringField
      FieldName = 'CID_ESTCOD'
      Required = True
      Size = 2
    end
    object SQLC_REGISTROSCID_CODIGO: TStringField
      FieldName = 'CID_CODIGO'
      Required = True
      Size = 3
    end
    object SQLC_REGISTROSCID_DESCRI: TStringField
      FieldName = 'CID_DESCRI'
      Required = True
      Size = 40
    end
    object SQLC_REGISTROSCID_IBGE_COD: TIntegerField
      FieldName = 'CID_IBGE_COD'
    end
  end
  object SQLC_REMESSAS: TSQLClientDataSet
    CommandText = 'select * from SPC_REMESSAS'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 401
    Top = 65
  end
  object dsRegistros: TDataSource
    AutoEdit = False
    DataSet = SQLC_REGISTROS
    Left = 97
    Top = 129
  end
end
